open(BUFF,"BRCA_normalized_mrnaSEQv2.txt") or die "no file found BRCA_normalized_mrnaSEQv2.txt\n";
open(WRBUFF,">input_colordata.txt");
$line=<BUFF>;
print WRBUFF $line;
chomp($line);
@array=split("\t",$line);
print WRBUFF "Plate";
$num=1;
for($i=1;$i<@array;$i++)
{
	@a=split('-',$array[$i]);
	#print WRBUFF "\t$a[5]";
	#print "$a[5]\n";
	if(!exists($hash{$a[5]}))
	{
		$hash{$a[5]} =$num;
		print "$a[5] $num\n";
		$num++;
	}
	print WRBUFF "\t$hash{$a[5]}";
}
print WRBUFF "\n";
print WRBUFF "Center";
for($i=1;$i<@array;$i++)
{
        @a=split('-',$array[$i]);
        print WRBUFF "\t$a[6]";
}
print WRBUFF "\n";
